home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
PCTV3N5
/
GETPALET.SRC
< prev
next >
Wrap
Text File
|
1992-09-01
|
454b
|
13 lines
FUNCTION TEditorApp.GetPalette: PPalette;
CONST
{ Set the help palettes to respectable default colors based
on the TApplication presets. }
CNewColor = CColor + CHelpColor;
CNewBlackWhite = CBlackWhite + CHelpBlackWhite;
CNewMonochrome = CMonochrome + CHelpMonochrome;
P: array[apColor..apMonochrome] of string[Length(CNewColor)] =
(CNewColor, CNewBlackWhite, CNewMonochrome);
BEGIN
GetPalette := @P[AppPalette];
END;